inherited FormResultadoTotalProdutos: TFormResultadoTotalProdutos
  Caption = 'FormResultadoTotalProdutos'
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited DBGridResultado: TDBGrid
    Columns = <
      item
        Expanded = False
        Visible = True
      end
      item
        Expanded = False
        Width = 396
        Visible = True
      end
      item
        Expanded = False
        Visible = True
      end
      item
        Expanded = False
        Width = 97
        Visible = True
      end>
  end
  inherited BitBtnOK: TBitBtn
    ModalResult = 0
    OnClick = BitBtnOKClick
    Kind = bkCustom
  end
  object RadioGroupTipo: TRadioGroup [7]
    Left = 592
    Top = 8
    Width = 89
    Height = 65
    ItemIndex = 0
    Items.Strings = (
      'Produto'
      'Familia')
    TabOrder = 5
    OnClick = RadioGroupTipoClick
  end
  object RadioGroupsabor: TRadioGroup [8]
    Left = 688
    Top = 8
    Width = 89
    Height = 65
    ItemIndex = 0
    Items.Strings = (
      '1 sabor'
      '2 sabores'
      '3 sabores')
    TabOrder = 6
  end
  object ChartResultado: TChart [9]
    Left = 8
    Top = 117
    Width = 737
    Height = 433
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    LeftWall.Color = clSilver
    Title.Font.Charset = DEFAULT_CHARSET
    Title.Font.Color = clBlue
    Title.Font.Height = -13
    Title.Font.Name = 'Arial'
    Title.Font.Style = []
    Title.Text.Strings = (
      'Quantidade de Pedidos por Dia')
    Chart3DPercent = 20
    LeftAxis.GridCentered = True
    Legend.Inverted = True
    Legend.LegendStyle = lsSeries
    Legend.Visible = False
    BorderStyle = bsSingle
    TabOrder = 7
    Visible = False
    object Series1: TBarSeries
      Marks.ArrowLength = 40
      Marks.Style = smsValue
      Marks.Visible = True
      PercentFormat = '##0.# %'
      SeriesColor = clBlue
      ValueFormat = '#,##0.00###'
      BarWidthPercent = 50
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
    end
    object Series2: TBarSeries
      Marks.ArrowLength = 20
      Marks.Style = smsValue
      Marks.Visible = True
      SeriesColor = clRed
      BarWidthPercent = 50
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
    end
  end
  object BitBtnGrafico: TBitBtn [10]
    Left = 296
    Top = 16
    Width = 75
    Height = 41
    TabOrder = 8
    Visible = False
    OnClick = BitBtnGraficoClick
    Glyph.Data = {
      76020000424D7602000000000000760000002800000020000000200000000100
      0400000000000002000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000707770
      0707770070777007077700000000007000000700000070000007000000515070
      051507005150700515070000B0951070095107009510700951070000BB015070
      0515070051507005150700000BB0107009510700951070095107000000BB000B
      051507005150700515070000009BB0BBB051070095107009510700000051BBB0
      BB050700515070051507000000951B700BB00700951070095107000000515070
      05BB070051500B051507000000951070095BB0009510BBB05107000000515070
      0515BB00510BB0BB050700000095107009510BB090BB700BB007000000515070
      051507BB0BB07009BB070000009510700951070BBB1070500BB0000000515070
      0D9D0700B1507000000000000095107050000000951070000000000000515070
      00000000515070000000000000951070000000009D9070000000000000D9D070
      0000000500000000000000000500000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000}
  end
  object RadioGroup1: TRadioGroup [11]
    Left = 384
    Top = 8
    Width = 201
    Height = 65
    ItemIndex = 0
    Items.Strings = (
      'Valor'
      'Quantidade de Pedidos')
    TabOrder = 9
    Visible = False
    OnClick = RadioGroup1Click
  end
  inherited cdsResultado: TClientDataSet
    StoreDefs = True
    object cdsResultadoid_produto: TIntegerField
      FieldName = 'id_produto'
    end
    object cdsResultadocodigo: TStringField
      FieldName = 'codigo'
      Size = 10
    end
    object cdsResultadoproduto: TStringField
      FieldName = 'produto'
      Size = 50
    end
    object cdsResultadototal: TFloatField
      FieldName = 'total'
      currency = True
    end
    object cdsResultadoquantidade: TIntegerField
      FieldName = 'quantidade'
    end
  end
  inherited QueryResultado: TQuery
    AutoRefresh = True
    DatabaseName = 'DBPizza'
    ParamCheck = False
    SQL.Strings = (
      'SELECT id_produto,'
      'produto_name(id_produto,'#39'COD'#39') as codigo,'
      'produto_name(id_produto,'#39'NM'#39') as produto,'
      'qtde_prod_data(id_produto,1,1) as quantidade,'
      'Sum(vl_unit_total) as total'
      'FROM item_pedido where'
      'id_produto2 is null group by id_produto order by 4 desc')
    object QueryResultadoid_produto: TIntegerField
      FieldName = 'id_produto'
    end
    object QueryResultadocodigo: TStringField
      FieldName = 'codigo'
      Size = 5
    end
    object QueryResultadoproduto: TStringField
      FieldName = 'produto'
      Size = 30
    end
    object QueryResultadototal: TFloatField
      FieldName = 'total'
      OnGetText = QueryResultadototalGetText
    end
  end
  object QueryAux: TQuery
    DatabaseName = 'DBPizza'
    ParamCheck = False
    Left = 328
    Top = 256
  end
  object QueryResultado2: TQuery
    DatabaseName = 'DBPizza'
    SQL.Strings = (
      'SELECT produto_id_to_familia(id_produto) as id_familia,'
      
        '       familia_name(produto_id_to_familia(id_produto)) as famili' +
        'a,'
      '       sum(quantidade) as quantidade,'
      '       Sum(vl_unit_total) as total'
      '       FROM item_pedido '
      
        '       group by produto_id_to_familia(id_produto) order by 2 des' +
        'c')
    Left = 360
    Top = 208
    object QueryResultado2id_familia: TFloatField
      FieldName = 'id_familia'
    end
    object StringField2: TStringField
      FieldName = 'familia'
      Size = 32
    end
    object FloatField1: TFloatField
      FieldName = 'quantidade'
    end
    object FloatField2: TFloatField
      FieldName = 'total'
      OnGetText = FloatField2GetText
    end
  end
end
